x <- rnorm(3)
lis <- list(y=1:5,z='lalala',fun=function()cat('ha-ha-ha\n'))
save(x,lis,file='test.RData')
rm(list=ls())
load(file='test.RData')
ls()
